/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / DLL_Toolkit / Source / HTBLineChart / test.prg

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 05 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 34 31 30 20 20 20 20 | 4c 4f 4e 47 20 57 69 64 |.410    |LONG Wid|
|00000110| 74 68 2c 48 65 69 67 68 | 74 2c 4c 6f 77 2c 48 69 |th,Heigh|t,Low,Hi|
|00000120| 67 68 2c 54 69 6d 65 72 | 2c 50 64 61 74 61 31 2c |gh,Timer|,Pdata1,|
|00000130| 50 64 61 74 61 32 00 27 | 32 30 20 20 20 20 49 4e |Pdata2.'|20    IN|
|00000140| 54 45 47 45 52 20 4c 69 | 6e 65 6e 75 6d 62 65 72 |TEGER Li|nenumber|
|00000150| 2c 52 65 64 2c 42 6c 75 | 65 2c 47 72 65 65 6e 00 |,Red,Blu|e,Green.|
|00000160| 00 14 33 30 20 20 20 20 | 44 4c 4c 20 55 4e 4c 4f |..30    |DLL UNLO|
|00000170| 41 44 20 41 4c 4c 00 1d | 34 30 20 20 20 20 44 4c |AD ALL..|40    DL|
|00000180| 4c 20 4c 4f 41 44 20 22 | 48 54 42 4c 69 6e 65 43 |L LOAD "|HTBLineC|
|00000190| 68 61 72 74 22 00 00 2c | 35 30 20 20 20 20 44 4c |hart"..,|50    DL|
|000001a0| 4c 20 47 45 54 20 22 53 | 48 4f 52 54 20 48 54 42 |L GET "S|HORT HTB|
|000001b0| 4c 69 6e 65 43 68 61 72 | 74 3a 4c 69 6e 65 63 68 |LineChar|t:Linech|
|000001c0| 61 72 74 22 00 2a 36 30 | 20 20 20 20 44 4c 4c 20 |art".*60|    DLL |
|000001d0| 47 45 54 20 22 53 48 4f | 52 54 20 48 54 42 4c 69 |GET "SHO|RT HTBLi|
|000001e0| 6e 65 43 68 61 72 74 3a | 41 64 64 6c 69 6e 65 22 |neChart:|Addline"|
|000001f0| 00 2f 37 30 20 20 20 20 | 44 4c 4c 20 47 45 54 20 |./70    |DLL GET |
|00000200| 22 56 4f 49 44 20 48 54 | 42 4c 69 6e 65 43 68 61 |"VOID HT|BLineCha|
|00000210| 72 74 3a 56 69 65 77 6c | 69 6e 65 63 68 61 72 74 |rt:Viewl|inechart|
|00000220| 22 00 00 30 38 30 20 20 | 20 20 44 4c 4c 20 47 45 |"..080  |  DLL GE|
|00000230| 54 20 22 56 4f 49 44 20 | 48 54 42 4c 69 6e 65 43 |T "VOID |HTBLineC|
|00000240| 68 61 72 74 3a 43 6c 6f | 73 65 6c 69 6e 65 63 68 |hart:Clo|selinech|
|00000250| 61 72 74 22 00 2d 39 30 | 20 20 20 20 44 4c 4c 20 |art".-90|    DLL |
|00000260| 47 45 54 20 22 56 4f 49 | 44 20 48 54 42 4c 69 6e |GET "VOI|D HTBLin|
|00000270| 65 43 68 61 72 74 3a 53 | 69 67 6e 61 6c 61 62 6f |eChart:S|ignalabo|
|00000280| 76 65 22 00 00 2e 31 30 | 30 20 20 20 20 44 4c 4c |ve"...10|0    DLL|
|00000290| 20 47 45 54 20 22 56 4f | 49 44 20 48 54 42 4c 69 | GET "VO|ID HTBLi|
|000002a0| 6e 65 43 68 61 72 74 3a | 53 69 67 6e 61 6c 62 65 |neChart:|Signalbe|
|000002b0| 6c 6f 77 22 00 10 31 30 | 31 20 20 20 20 52 41 4e |low"..10|1    RAN|
|000002c0| 44 4f 4d 49 5a 45 00 08 | 31 30 32 20 20 20 20 21 |DOMIZE..|102    !|
|000002d0| 00 10 31 31 30 20 20 20 | 20 57 69 64 74 68 3d 33 |..110   | Width=3|
|000002e0| 30 30 00 11 31 32 30 20 | 20 20 20 48 65 69 67 68 |00..120 |   Heigh|
|000002f0| 74 3d 32 35 30 00 00 0c | 31 33 30 20 20 20 20 4c |t=250...|130    L|
|00000300| 6f 77 3d 30 00 0f 31 34 | 30 20 20 20 20 48 69 67 |ow=0..14|0    Hig|
|00000310| 68 3d 31 30 30 00 00 2c | 31 35 30 20 20 20 20 54 |h=100..,|150    T|
|00000320| 69 6d 65 72 3d 35 30 30 | 21 20 31 2f 32 20 73 65 |imer=500|! 1/2 se|
|00000330| 63 6f 6e 64 20 69 6e 20 | 6d 69 6c 6c 65 73 65 63 |cond in |millesec|
|00000340| 6f 6e 64 73 00 58 31 36 | 30 20 20 20 20 4c 69 6e |onds.X16|0    Lin|
|00000350| 65 63 68 61 72 74 28 22 | 57 69 6e 64 6f 77 73 20 |echart("|Windows |
|00000360| 74 69 74 6c 65 22 2c 22 | 52 61 6e 64 6f 6d 20 4e |title","|Random N|
|00000370| 75 6d 62 65 72 73 22 2c | 28 57 69 64 74 68 29 2c |umbers",|(Width),|
|00000380| 28 48 65 69 67 68 74 29 | 2c 28 4c 6f 77 29 2c 28 |(Height)|,(Low),(|
|00000390| 48 69 67 68 29 2c 28 54 | 69 6d 65 72 29 29 00 13 |High),(T|imer))..|
|000003a0| 31 37 30 20 20 20 20 4c | 69 6e 65 6e 75 6d 62 65 |170    L|inenumbe|
|000003b0| 72 3d 31 00 00 0e 31 38 | 30 20 20 20 20 52 65 64 |r=1...18|0    Red|
|000003c0| 3d 32 35 35 00 0d 31 39 | 30 20 20 20 20 42 6c 75 |=255..19|0    Blu|
|000003d0| 65 3d 30 00 00 0e 32 30 | 30 20 20 20 20 47 72 65 |e=0...20|0    Gre|
|000003e0| 65 6e 3d 30 00 07 32 30 | 31 20 20 20 21 00 00 0d |en=0..20|1   !...|
|000003f0| 32 30 36 20 20 20 20 57 | 41 49 54 20 31 00 00 38 |206    W|AIT 1..8|
|00000400| 32 31 30 20 20 20 20 41 | 64 64 6c 69 6e 65 28 28 |210    A|ddline((|
|00000410| 4c 69 6e 65 6e 75 6d 62 | 65 72 29 2c 28 52 65 64 |Linenumb|er),(Red|
|00000420| 29 2c 28 47 72 65 65 6e | 29 2c 28 42 6c 75 65 29 |),(Green|),(Blue)|
|00000430| 2c 50 64 61 74 61 31 29 | 00 13 32 31 31 20 20 20 |,Pdata1)|..211   |
|00000440| 20 4c 69 6e 65 6e 75 6d | 62 65 72 3d 32 00 00 0c | Linenum|ber=2...|
|00000450| 32 31 33 20 20 20 20 52 | 65 64 3d 30 00 0f 32 31 |213    R|ed=0..21|
|00000460| 34 20 20 20 20 42 6c 75 | 65 3d 32 35 35 00 00 0e |4    Blu|e=255...|
|00000470| 32 31 35 20 20 20 20 47 | 72 65 65 6e 3d 30 00 0d |215    G|reen=0..|
|00000480| 32 31 36 20 20 20 20 57 | 41 49 54 20 31 00 00 35 |216    W|AIT 1..5|
|00000490| 32 31 37 20 41 64 64 6c | 69 6e 65 28 28 4c 69 6e |217 Addl|ine((Lin|
|000004a0| 65 6e 75 6d 62 65 72 29 | 2c 28 52 65 64 29 2c 28 |enumber)|,(Red),(|
|000004b0| 47 72 65 65 6e 29 2c 28 | 42 6c 75 65 29 2c 50 64 |Green),(|Blue),Pd|
|000004c0| 61 74 61 32 29 00 00 17 | 32 32 30 20 20 20 20 46 |ata2)...|220    F|
|000004d0| 4f 52 20 4c 6f 6f 70 3d | 31 20 54 4f 20 33 30 00 |OR Loop=|1 TO 30.|
|000004e0| 00 36 32 32 31 20 20 20 | 20 44 49 53 50 20 22 50 |.6221   | DISP "P|
|000004f0| 72 6f 67 72 61 6d 20 77 | 69 6c 6c 20 65 6e 64 20 |rogram w|ill end |
|00000500| 69 6e 20 22 3b 33 30 2d | 4c 6f 6f 70 3b 22 20 73 |in ";30-|Loop;" s|
|00000510| 65 63 6f 6e 64 73 2e 22 | 00 11 32 33 30 20 20 20 |econds."|..230   |
|00000520| 20 20 20 20 20 57 41 49 | 54 20 31 00 00 1c 32 33 |     WAI|T 1...23|
|00000530| 31 20 20 20 20 20 20 20 | 50 64 61 74 61 31 3d 28 |1       |Pdata1=(|
|00000540| 52 4e 44 2a 31 30 30 29 | 2d 31 00 1c 32 33 32 20 |RND*100)|-1..232 |
|00000550| 20 20 20 20 20 20 50 64 | 61 74 61 32 3d 28 52 4e |      Pd|ata2=(RN|
|00000560| 44 2a 31 30 30 29 2d 31 | 00 10 32 34 30 20 20 20 |D*100)-1|..240   |
|00000570| 20 4e 45 58 54 20 4c 6f | 6f 70 00 1c 32 34 31 20 | NEXT Lo|op..241 |
|00000580| 20 20 20 44 49 53 50 20 | 22 50 6c 65 61 73 65 20 |   DISP |"Please |
|00000590| 77 61 69 74 2e 2e 2e 22 | 00 15 32 34 33 20 20 20 |wait..."|..243   |
|000005a0| 20 43 6c 6f 73 65 6c 69 | 6e 65 63 68 61 72 74 00 | Closeli|nechart.|
|000005b0| 00 15 32 34 34 20 20 20 | 20 44 4c 4c 20 55 4e 4c |..244   | DLL UNL|
|000005c0| 4f 41 44 20 41 4c 4c 00 | 00 13 32 34 35 20 20 20 |OAD ALL.|..245   |
|000005d0| 20 44 49 53 50 20 22 64 | 6f 6e 65 2e 22 00 00 0a | DISP "d|one."...|
|000005e0| 32 35 30 20 20 20 20 45 | 4e 44 00 05 32 36 30 20 |250    E|ND..260 |
|000005f0| 21 00 00 05 32 37 30 20 | 21 00 ff ff             |!...270 |!...    |
+--------+-------------------------+-------------------------+--------+--------+